home *** CD-ROM | disk | FTP | other *** search
/ Telecommunications & Multimedia Encyclopedia / Jones Telecommunications and Multimedia Encyclopedia (Jones)(1996).ISO / mac / ENCYCLOP / OPTMENU.DIR / 00001_Script_1 next >
Text File  |  1996-01-09  |  3KB  |  131 lines
  1. -----------------------------
  2. -- startMovie handler
  3.  
  4. on startMovie
  5.   Init
  6. end startMovie
  7.  
  8. -----------------------------
  9. -- stopMovie handler
  10.  
  11. on stopMovie
  12.   global gOptionsWindow
  13.   
  14.   if objectP (gOptionsWindow) then
  15.     forget gOptionsWindow
  16.   end if
  17.   
  18.   
  19. end stopMovie
  20.  
  21. --------------------------
  22. -- Init
  23.  
  24. on Init
  25.   global gButtonClicked, OptMenuWindow
  26.   global gOptionSelected, gOptionSemiphore
  27.   global gGrayPrint, gGrayFind, returnFrame
  28.   
  29.   set gButtonClicked = 0
  30.   set gOptionSelected = ""
  31.   set gOptionSemiphore = 0
  32.   
  33.   if returnframe = "timeline" or returnframe = "Timeviewer" then
  34.     puppetsprite 3, true
  35.     set the castnum of sprite 3 to 17
  36.     set gGrayFind  = 1
  37.   else
  38.     set gGrayFind = 0
  39.   end if
  40.   
  41.   if returnframe = "aa" or returnframe = "ta" or returnframe = "tra" or returnframe = "pa" or returnframe = "ai" or returnframe = "ti" or returnframe = "tri" or returnframe = "pi" or returnframe = "Timeviewer"  then
  42.     set gGrayPrint = 0
  43.   else
  44.     puppetsprite 4, true
  45.     set the castnum of sprite 4 to 20
  46.     set gGrayPrint = 1
  47.   end if
  48. end Init
  49.  
  50. ----------------------------
  51. -- ButtonHandler
  52.  
  53. on ButtonHandler iSprite, iCastNum
  54.   global gButtonClicked
  55.   
  56.   set gButtonClicked = 0
  57.   
  58.   repeat while ( rollover (iSprite) )
  59.     if the mouseDown then
  60.       set tmpFlag = 1
  61.       set the castnum of sprite iSprite to iCastNum + 2
  62.       updateStage
  63.       repeat while the mouseDown
  64.         if rollover (iSprite) then
  65.           --do nothing  
  66.         else
  67.           set tmpFlag = 0
  68.           exit repeat -- checks to see if mouse is off the coordinates
  69.         end if
  70.       end repeat
  71.     else
  72.       set the castnum of sprite isprite to icastnum + 1
  73.       updatestage
  74.     end if
  75.     
  76.     updatestage
  77.     if tmpFlag = 1 then
  78.       set gButtonClicked = 1
  79.       exit repeat
  80.     end if
  81.   end repeat
  82.   
  83.   set the castnum of sprite iSprite to iCastNum
  84.   updatestage
  85.   
  86. end ButtonHandler
  87.  
  88. ----------------------------
  89. -- DoDictionary handler
  90.  
  91. on DoDictionary
  92.   global gOptionSelected, gOptionSemiphore
  93.   
  94.   set gOptionSemiphore = 1
  95.   set gOptionSelected = "Dct"
  96.   
  97. end DoDictionary
  98.  
  99. ----------------------------
  100. -- DoFind handler
  101.  
  102. on DoFind
  103.   global gOptionSelected, gOptionSemiphore
  104.   
  105.   set gOptionSemiphore = 1
  106.   set gOptionSelected = "Fnd"
  107.   
  108. end DoFind
  109.  
  110. ----------------------------
  111. -- DoPrint handler
  112. global gOptionSelected, gOptionSemiphore
  113.  
  114. on DoPrint
  115.   global gOptionSelected, gOptionSemiphore
  116.   
  117.   set gOptionSemiphore = 1
  118.   set gOptionSelected = "Prn"
  119.   
  120. end DoPrint
  121.  
  122. ----------------------------
  123. -- DoSoundLevel handler
  124.  
  125. on DoSoundLevel
  126.   global gOptionSelected, gOptionSemiphore
  127.   
  128.   set gOptionSemiphore = 1
  129.   set gOptionSelected = "Snd"
  130.   
  131. end DoSoundLevel